*** In order to estimate the results on tables 3,4 and 5 the following Stata data base has to be used:

use "C:\Users\christiano\paper consignado revisao Rstats\Database Rstats\database_tables_3_4_5_Rstats.dta"

*** Defining cross section and time variables:
tsset cluster_variable time

*** Regressions of Table 3***
xtreg  monthly_new_loans  dum_time1-dum_time33  treatment_direct_effects if  dummy_authorized==1, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time33  treatment_direct_effects if  dummy_authorized==1, fe cluster(cluster_variable) 

*** observation: interest rate data are on monthly basis. In order to reproduce the results of the paper one has to 
*** annualize the interest rate coefficient

*** Regressions of Table 4***
xtreg  monthly_interest_rates  dum_time1-dum_time33  treatment1 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time33  treatment2 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time33  treatment3 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time33  treatment4 if  dummy_authorized==0, fe cluster(cluster_variable) 

*** observation: interest rate data are on monthly basis. In order to reproduce the results of the paper one has to 
*** annualize the interest rate coefficient

*** Regressions of Table 5***
xtreg  monthly_new_loans  dum_time1-dum_time33  treatment1 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time33  treatment2 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time33  treatment3 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time33  treatment4 if  dummy_authorized==0, fe cluster(cluster_variable) 


